home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Graphics / JP-Guide / Source / Jp.z < prev    next >
Encoding:
Text File  |  2000-02-29  |  24.6 KB  |  1,151 lines
  1. Deck "amGuide92"
  2.     Routine "Routine_Status"
  3.         SetPrintFont "topaz",8
  4.         SetPrintStyle PLAIN ,2,3
  5.         SetPen 1,0
  6.         SetDrawMode JAM1 
  7.         SetText "Field_Status",Status
  8.     EndScript
  9.     Routine "do_search"
  10.         WorkWithDocument "dateien"
  11.         Let tmppath5 = textfrom("schublade")
  12.         If findchars(tmppath5, ":",1)
  13.             SetCurrentDirectory tmppath5
  14.         EndIf
  15.         Clear DOCUMENT 
  16.         Let pattern = textfrom("fld_pattern")
  17.         Let wild = findchars(pattern, "*", 1)
  18.         While wild <> 0
  19.             Let pattern = removechars(pattern,wild,1)
  20.             Let pattern = insertchars("#?", pattern, wild-1)
  21.             Let wild = findchars(pattern, "*", 1)
  22.         EndLoop
  23.         Let thecommand = "search >t:seekerlst " || char(34) || char(34)|| " " || pattern || " FILE"
  24.         If objectstate("btn_subdirs") = FALSE
  25.             Let thecommand = thecommand || " ALL"
  26.         EndIf
  27.         Dos thecommand
  28.         LoadDocument "t:seekerlst","dateien"
  29.         IfError
  30.             ExitScript
  31.         EndIf
  32.         If objectstate("btn_sort") = TRUE
  33.             SortDocument NOCASE ASCENDING 
  34.             MoveCursorTo STARTOF DOCUMENT 
  35.         EndIf
  36.         SetText ("Schublade"),thecurrentdirectory
  37.         Do "1-1"
  38.         Let tmppath = textfrom("schublade")
  39.         If not tmppath = ""
  40.             SetCurrentDirectory tmppath
  41.         EndIf
  42.     EndScript
  43.     Routine "dizzer"
  44.         Do "--00d"
  45.         MoveCursorTo STARTOF DOCUMENT 
  46.         Let L=linesindocument
  47.         SetText "k1",L
  48.         Let po = textfrom("k1")
  49.         Let TXL=thelinenumber
  50.         Let AL = Thelinenumber
  51.         Let x = textfrom("schublade")
  52.         Let CN01=textfrom("CN%")
  53.         Let CN02=textfrom("CNS")
  54.         Let CN03=" Q="
  55.         Let CN04=CN03||CN01
  56.         Let CN05=" S="
  57.         Let CN06=CN05||CN02
  58.         If exists(tl)
  59.             SetText "field_status","Please wait! Converting pictures..."
  60.             Loop
  61.                 Do "abrake"
  62.                 SetText "k2",TXL
  63.                 SetText "datei",theline
  64.                 Let x1 = textfrom("schublade")
  65.                 Let x2 = textfrom("datei")
  66.                 Let q1=hextochars("22")
  67.                 Let tl1=pathandfile(x,theline)
  68.                 Let tl2=q1||x1||x2||q1
  69.                 Let tl3=q1||newfile2||x2||q1
  70.                 Let xx = textfrom("datei")
  71.                 Let tl00=pathandfile(x,theline)
  72.                 SetText "field_status","Please wait! Converting file: "||x2
  73.                 Dos "Run >Nil: <Nil: C:copy " || tl2 || " ram:t/"
  74.                 If ObjectState ("Check CN2") = true
  75.                     Workwithdocument "Docu3"
  76.                     Clear document
  77.                     type x2
  78.                     MoveCursorTo STARTOF DOCUMENT 
  79.                     Searchfor "."
  80.                     If Searchfound
  81.                     delete toendofline
  82.                     type ".jpg"
  83.                     MoveCursorTo STARTOF DOCUMENT 
  84.                     endif
  85.                     Settext "Datei2",theline
  86.                     Let x3 = textfrom("Datei2")
  87.                     ;endif
  88.                     Let tl4=q1||newfile2||x3||q1
  89.                     Dos "Run >Nil: <Nil: C:jpegtool"||CN04||CN06||" ram:t/"||x2||" to "|| tl4
  90.                 endif
  91.                 If ObjectState ("Check CN") = true
  92.                     Dos "Run >Nil: <Nil: C:jpegtool"||CN04||CN06||" ram:t/"||x2||" to "|| tl3
  93.                 endif
  94.                 SetPointer "cando:pointers/zzzdisk.pntr2"
  95.                 SetPointer "cando:pointers/zzzdisk.pntr2"
  96.                 Dos "Run >Nil: <Nil: C:Delete ram:t/"||x2
  97.                 Dos "Run >Nil: <Nil: C:Delete ram:t/"||x2
  98.                 Dos "Run >Nil: <Nil: C:Delete ram:t/"||x2
  99.                 Dos "Run >Nil: <Nil: C:Delete ram:t/"||x2
  100.                 Dos "Run >Nil: <Nil: C:Delete ram:t/"||x2
  101.                 IfError
  102.                     Let err = askforresponse("Buffer full - Try it again...", "JPEGTOOL Guide Info", " OK ")
  103.                     ExitScript
  104.                 EndIf
  105.                 WorkWithDocument "dateien"
  106.                 Movecursor down
  107.             EndIf
  108.             Let po2 = textfrom("k2")
  109.             Let l2 = po2*100/po*2
  110.             Let l2a = po2*100/po
  111.             Let l3 = ROUND(l2,0)
  112.             Let l3a = ROUND(l2a,0)
  113.             Let l4 = theline
  114.             SetPen 1
  115.             AreaRectangle 188,195,l3,27
  116.             SetPrintFont "topaz",8
  117.             Let Status = l3a||" %"
  118.             Do "Routine_Status2"
  119.             Let TXL=TXL+1
  120.             If TXL > L
  121.                 ExitLoop
  122.             EndIf
  123.             Do "--refresh"
  124.             ;Coolround by Jochen Grus © 1997-2001
  125.         EndLoop
  126.         SetPointer
  127.         WorkWithDocument "diz"
  128.         Delete LINE 
  129.         SetText "field_status","Ready..."
  130.         Do "dateienliste"
  131.         SetText "k1",""
  132.         SetText "k2",""
  133.         ClearWindow
  134.         Let err = askforresponse("Ready! All pictures converted!", "JPEGTOOL Guide Info", " OK ")
  135.     EndScript
  136.     Routine "b4"
  137.         Let t=thetime
  138.         Let wrd=1
  139.         Let asc=true
  140.         Let snd=false
  141.         Let sRS=true
  142.         Let lm=1
  143.         Let li=79
  144.         Let chex=true
  145.         Let scrsiz=0
  146.     EndScript
  147.     Routine "tmp"
  148.         If not tmppath = ""
  149.             SetCurrentDirectory tmppath
  150.         EndIf    
  151.     EndScript
  152.     Routine "___1"
  153.         If ObjectState ("01") = true
  154.             WorkWithDocument "dateien"
  155.             SetText "datei",theline
  156.         Else
  157.             If ObjectState ("02") = true
  158.                 WorkWithDocument "ad"
  159.                 SetText "fld_path1",theline
  160.             EndIf
  161.         EndIf
  162.     EndScript
  163.     Routine "ENDE"
  164.         Dos "Run >Nil: <Nil: C:Delete ram:t/*.*"
  165.         Dos "Run >Nil: <Nil: C:Delete ram:t/*.*"
  166.     EndScript
  167.     Routine "1-1"
  168.         Let tmppath6 = textfrom("schublade")
  169.         If not tmppath6 = ""
  170.             SetCurrentDirectory tmppath6
  171.         EndIf
  172.         WorkWithDocument "dateien"
  173.         MoveCursorTo STARTOF DOCUMENT 
  174.         Let L=linesindocument
  175.         Let TXL=thelinenumber
  176.         Loop
  177.             SearchFor textfrom("schublade")
  178.             If SearchFound = True
  179.                 Delete CHARACTER ,numberofchars(textfrom("schublade"))
  180.             EndIf
  181.             Let TXL=TXL+1
  182.             If TXL > L
  183.                 ExitLoop
  184.             EndIf
  185.         EndLoop
  186.         MoveCursorTo STARTOF DOCUMENT 
  187.         Delete LINE 
  188.     EndScript
  189.     Routine "----fz"
  190.         If exists(theline)
  191.             GetFileInfo theline,fsize
  192.             SetText "fsize",fsize
  193.         Else
  194.             ExitScript
  195.         EndIf
  196.         If textfrom ("fsize") = "0"
  197.             IfError
  198.             EndIf
  199.         EndIf
  200.     EndScript
  201.     Routine "Routine_command"
  202.         Dos CommandString
  203.         ;,STDOUT
  204.     EndScript
  205.     Routine "Routine_command2"
  206.         Dos thecommand
  207.     EndScript
  208.     Routine "--01"
  209.         Let tmppath = textfrom("schublade")
  210.         If not tmppath = ""
  211.             SetCurrentDirectory tmppath
  212.         EndIf
  213.     EndScript
  214.     Routine "--02"
  215.         Let tmppath = textfrom("schublade")
  216.         If not tmppath = ""
  217.             SetCurrentDirectory tmppath
  218.         EndIf
  219.     EndScript
  220.     Routine "--00"
  221.         WorkWithDocument "dateien"
  222.         Let x = textfrom("schublade")
  223.         Let tl=pathandfile(x,theline)
  224.     EndScript
  225.     Routine "--00set"
  226.         Let tmppath = textfrom("schublade")
  227.         If not tmppath = ""
  228.             SetCurrentDirectory tmppath
  229.         EndIf
  230.     EndScript
  231.     Routine "--00d"
  232.         WorkWithDocument "dateien"
  233.         Do "do_Search"
  234.         Let x = textfrom("schublade")
  235.         Let tl=pathandfile(x,theline)
  236.     EndScript
  237.     Routine "--refresh"
  238.         RefreshObject "document_1"
  239.         Do "----fz"
  240.     EndScript
  241.     Routine "--03"
  242.         Do "dateienliste"
  243.         MoveCursor DOWN ,cd
  244.         MoveCursor UP 
  245.         SetText "datei",theline
  246.         Do "----fz"
  247.         Do "----fz"
  248.     EndScript
  249.     Routine "Routine_Status2"
  250.         SetText "Balk2",Status    
  251.     EndScript
  252.     Routine "abrake"
  253.         If ObjectState ("stoppp") = true
  254.             Let stopp=askforresponse("Do you really want to stop"||char(10)||"with this procedure?", "JPEGTOOL Guide Info", " OK |Cancel")
  255.             If stopp = 1
  256.                 SetObjectState "stoppp",false
  257.                 SendToSubDeck "Simplereq","Quit",TRUE
  258.                 IfError
  259.                 EndIf
  260.                 SetText "tline",""
  261.                 Do "--03"
  262.                 SetText "k1",""
  263.                 SetText "k2",""
  264.                 SetText "fd1",""
  265.                 SetText "fd2",""
  266.                 SetText "balk2","100 %"
  267.                 ClearWindow
  268.                 StopScript
  269.             Else
  270.                 SetObjectState "stoppp",false
  271.             EndIf
  272.         EndIf
  273.         ;Stop for Loop routine - Jochen Grus © 1997-2001
  274.     EndScript
  275.     Routine "--Fehler"
  276.         If Textfrom("Schublade") = ""
  277.             Let err = askforresponse("ERROR: There is no path at the"||char(10)||"source window selected!", "JPEGTOOL Guide Info", " OK ")
  278.             StopScript
  279.         EndIf
  280.     EndScript
  281.     Routine "dirs"
  282.         WorkWithDocument "dirs"
  283.         Clear DOCUMENT 
  284.         Type newfile
  285.         WorkWithDocument "dateien"
  286.     EndScript
  287.     Routine "dirs3"
  288.         WorkWithDocument "dirs"
  289.         Let w2 = theline
  290.         Let w3 = w2||".guide"
  291.         WorkWithDocument "dateien"
  292.     EndScript
  293.     Routine "dirs4"
  294.         WorkWithDocument "dirs"
  295.         Let w2 = theline
  296.         Let w3 = w2||".txt"
  297.         WorkWithDocument "dateien"
  298.     EndScript
  299.     Routine "dirs2"
  300.         Let q3 =hextochars("2F")
  301.         Let q2 =hextochars("3A")
  302.         WorkWithDocument "dirs"
  303.         MoveCursorTo ENDOF LINE 
  304.         MoveCursor LEFT 
  305.         Delete CHARACTER 
  306.         MoveCursorTo STARTOF LINE 
  307.         SearchFor q2
  308.         Delete TOSTARTOFLINE 
  309.         MoveCursorTo STARTOF LINE 
  310.         Delete CHARACTER 
  311.         Replace q3,"_",GLOBAL 
  312.         WorkWithDocument "dateien"
  313.     EndScript
  314.     Routine "Dirs5"
  315.         WorkWithDocument "cool1"
  316.         Clear DOCUMENT 
  317.         Type "",NEWLINE 
  318.         Type " Jochen Grus",NEWLINE 
  319.         Type "      &     ",NEWLINE 
  320.         Type "Martin Gentile",NEWLINE 
  321.         WorkWithDocument "dateien"
  322.     EndScript
  323.     Routine "Dirs6"
  324.         WorkWithDocument "cool1"
  325.         Clear DOCUMENT 
  326.         Type "",NEWLINE 
  327.         Type "  Guide v1.1",NEWLINE 
  328.         Type " AddOn for the  ",NEWLINE 
  329.         Type "   JPEGTOOL",NEWLINE 
  330.         WorkWithDocument "dateien"
  331.     EndScript
  332.     Routine "Dirs7"
  333.         WorkWithDocument "cool2"
  334.         Clear DOCUMENT 
  335.         Type "",NEWLINE 
  336.         Type " Jochen Grus",NEWLINE 
  337.         Type "      &     ",NEWLINE 
  338.         Type "Martin Gentile",NEWLINE 
  339.         WorkWithDocument "dateien"
  340.     EndScript
  341.     Routine "Dirs8"
  342.         WorkWithDocument "cool2"
  343.         Clear DOCUMENT 
  344.         Type "",NEWLINE 
  345.         Type "  Guide v1.1",NEWLINE 
  346.         Type " AddOn for the  ",NEWLINE 
  347.         Type "   JPEGTOOL",NEWLINE 
  348.         WorkWithDocument "dateien"
  349.     EndScript
  350.     Routine "Disks-Liste"
  351.         SetCurrentDirectory Pfad
  352.         WorkWithDocument "DevsTemp"
  353.         Clear DOCUMENT 
  354.         InsertDeviceList PHYSICAL 
  355.         MoveCursorTo STARTOF DOCUMENT 
  356.         While TheLine <> ""
  357.             Type "<Dev> "
  358.             MoveCursor DOWN 
  359.             MoveCursorTo STARTOF LINE 
  360.         EndLoop
  361.         MoveCursorTo ENDOF DOCUMENT 
  362.         Delete CHARACTER ,-1
  363.         SortDocument NOCASE 
  364.         Nop
  365.         WorkWithDocument "VolsTemp"
  366.         Clear DOCUMENT 
  367.         InsertDeviceList LOGICAL 
  368.         MoveCursorTo STARTOF DOCUMENT 
  369.         While TheLine <> ""
  370.             Type "<Vol> "
  371.             MoveCursor DOWN 
  372.             MoveCursorTo STARTOF LINE 
  373.         EndLoop
  374.         MoveCursorTo ENDOF DOCUMENT 
  375.         Delete CHARACTER ,-1
  376.         SortDocument NOCASE 
  377.         MoveCursorTo ENDOF DOCUMENT 
  378.         NewLine
  379.         Nop
  380.         WorkWithDocument "AsnsTemp"
  381.         Clear DOCUMENT 
  382.         InsertDeviceList ASSIGNS 
  383.         MoveCursorTo STARTOF DOCUMENT 
  384.         While TheLine <> ""
  385.             Type "<Asn> "
  386.             MoveCursor DOWN 
  387.             MoveCursorTo STARTOF LINE 
  388.         EndLoop
  389.         MoveCursorTo ENDOF DOCUMENT 
  390.         Delete CHARACTER ,-1
  391.         SortDocument NOCASE 
  392.         Nop
  393.         WorkWithDocument "Dateien"
  394.         Clear DOCUMENT 
  395.         InsertDocument "DevsTemp"
  396.         InsertDocument "VolsTemp"
  397.         InsertDocument "AsnsTemp"
  398.         MoveCursorTo STARTOF DOCUMENT 
  399.         Do "--01"        
  400.     EndScript
  401.     Routine "Dateienliste"
  402.         SetCurrentDirectory textfrom("schublade")
  403.         SetText "field_status","Please wait, reading directory..."
  404.         SetPointer "cando:pointers/zzzdisk.pntr2"
  405.         Let Pfad = textfrom("schublade")
  406.         SetText "Schublade",Pfad
  407.         SetCurrentDirectory Pfad
  408.         WorkWithDocument "VerzTemp"
  409.         Clear DOCUMENT 
  410.         InsertDirectoryList DIRECTORIESONLY 
  411.         MoveCursorTo STARTOF DOCUMENT 
  412.         While TheLine <> ""
  413.             Type "<Dir> "
  414.             MoveCursor DOWN 
  415.             MoveCursorTo STARTOF LINE 
  416.         EndLoop
  417.         MoveCursorTo ENDOF DOCUMENT 
  418.         Delete CHARACTER ,-1
  419.         SortDocument NOCASE 
  420.         MoveCursorTo ENDOF DOCUMENT 
  421.         Let VerzVar = TextFromDocument ("VerzTemp")
  422.         If NumberOfChars(VerzVar) <> 0
  423.             Type "",NEWLINE 
  424.             Let VerzVar = ""
  425.         EndIf
  426.         WorkWithDocument "DatTemp"
  427.         Clear DOCUMENT 
  428.         InsertDirectoryList FILESONLY 
  429.         MoveCursorTo ENDOF DOCUMENT 
  430.         Delete CHARACTER ,-1
  431.         SortDocument NOCASE
  432.         WorkWithDocument "Dateien"
  433.         Clear DOCUMENT 
  434.         InsertDocument "VerzTemp"
  435.         Let n1 = linesindocument
  436.         Let n2 = n1-1
  437.         InsertDocument "DatTemp"
  438.         MoveCursorTo STARTOF DOCUMENT 
  439.         SetText "field_status","Ready..."
  440.         SetPointer
  441.         If textfrom ("schublade") = "Ram Disk:"
  442.             SetText "schublade","RAM:"
  443.         EndIf
  444.         Do "--01"
  445.     EndScript
  446.     Card "Guider"
  447.         BeforeAttachment
  448.             Do "b4"
  449.         EndScript
  450.         AfterAttachment
  451.             Do "dirs5"
  452.             Do "dirs8"
  453.             If not exists("ram:t")
  454.                 Dos "c:Makedir ram:T"
  455.                 Dos "c:Assign T: RAM:T"
  456.             EndIf
  457.             If exists("ram:t")
  458.                 Dos "c:Assign T: RAM:T"
  459.                 Dos "c:Assign Temp: RAM:T"
  460.             EndIf
  461.             MakeDocument "VerzTemp"
  462.             MakeDocument "DatTemp"
  463.             MakeDocument "DevsTemp"
  464.             MakeDocument "VolsTemp"
  465.             MakeDocument "AsnsTemp"
  466.             MakeDocument "d2"
  467.             Let Herkunft = Arg1
  468.             Let Titel = Arg2
  469.             Let PfadUndDatei = Arg3
  470.             Let NeuerPfad = PathOf(PfadUndDatei)
  471.             ;Let NeuerPfad2 = PathOf(PfadUndDatei)
  472.             Let NeueDatei = FileOf(PfadUndDatei)
  473.             Nop
  474.             If NeuerPfad = ""
  475.                 Let NeuerPfad = "sys:"
  476.             EndIf
  477.             Let Pfad = "Sys:"
  478.             Nop
  479.             Nop
  480.             SetText "Datei",NeueDatei
  481.             Nop
  482.             Do "Disks-Liste"
  483.             RefreshObject "Document_1"
  484.             Nop
  485.             WorkWithDocument "Dateien"
  486.             If NeueDatei = ""
  487.                 SetObjectState "Datei",ON
  488.             EndIf
  489.             SetScreenTitle "JPEGTOOL Guide V1.1 by Jochen Grus 2001"
  490.             WorkWithDocument "diz"
  491.             Clear DOCUMENT 
  492.             Let tmppath = textfrom("schublade")
  493.             If not tmppath = ""
  494.                 SetCurrentDirectory tmppath
  495.             EndIf
  496.             SetObjectState "Check CN",true
  497.             SetObjectState "Check CN2",false
  498.         EndScript
  499.         BeforeDetachment
  500.             If exists("t:cmds")
  501.                 Dos "c:delete t:cmds"
  502.             EndIf
  503.             If exists("t:fileinfo")
  504.                 Dos "c:delete t:fileinfo"
  505.             EndIf
  506.             If exists("t:seekerlst")
  507.                 Dos "c:delete t:seekerlst"
  508.             EndIf
  509.         EndScript
  510.         Window "UserWindow"
  511.             Definition
  512.                 Origin 0,20
  513.                 Title "JPEGTOOL Guide V1.1 by Jochen Grus © 2001"
  514.                 WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
  515.                 WindowLimits 140,120,600,256
  516.                 WindowZoom 0,0,30,40
  517.                 Size 600,256
  518.                 WindowFlags ACTIVATE TOFRONT PUBLIC ,"Workbench"
  519.                 VisualEffects NONE ,WAIT 
  520.             EndScript
  521.             OnCloseButton
  522.                 Let as = askforresponse("Do you really want to quit?", "System Information", " OK |Cancel")
  523.                 If as = 1
  524.                     Dos "C:Delete ram:t/#?"
  525.                     Dos "C:Delete ram:t/tempside/#?"
  526.                     Dos "C:Delete ram:t/secure/#?"
  527.                     Dos "C:Delete ram:t/copier/#?"
  528.                     Dos "c:Assign remove Tempside:"
  529.                     Dos "c:Assign dismount Tempside:"
  530.                     Dos "c:Assign remove copier:"
  531.                     Dos "c:Assign dismount copier:"
  532.                     Dos "c:Assign remove Secure:"
  533.                     Dos "c:Assign dismount Secure:"
  534.                     Dos "C:Delete ram:t/secure"
  535.                     Dos "C:Delete ram:t/tempside"
  536.                     Dos "C:Delete ram:t/copier"
  537.                     FlushAll
  538.                     Quit
  539.                 ElseIf as = 2
  540.                     ExitScript
  541.                 EndIf
  542.             EndScript
  543.         EndObj
  544.         TextField "fld_pattern"
  545.             Definition
  546.                 InitialText "#?"
  547.                 Origin 2000,2000
  548.                 Size 59,8
  549.                 Justification CENTER 
  550.                 MaxFieldLength 64
  551.                 Font "topaz",8
  552.                 TextColors 6,0
  553.                 AltTextColors 1,3
  554.             EndScript
  555.             OnRelease
  556.                 Do "do_search"
  557.             EndScript
  558.         EndObj
  559.         TextMenu "ABout5"
  560.             Definition
  561.                 AttachTo MENU ,"  ¿  "
  562.                 Text "   About   "
  563.                 Highlight NONE 
  564.                 Font "topaz",11
  565.                 Style ITALIC ,2,1
  566.                 TextColors 1,2,JAM1 
  567.             EndScript
  568.         EndObj
  569.         ImageMenu "as"
  570.             Definition
  571.                 AttachTo MENU ,"  ¿  "
  572.                 BarImage
  573.             EndScript
  574.         EndObj
  575.         TextMenu "mnu_exit"
  576.             Definition
  577.                 AttachTo MENU ,"  ¿  "
  578.                 Text "   Quit   "
  579.                 Font "topaz",11
  580.                 Style PLAIN ,2,3
  581.                 TextColors 1,2,JAM1 
  582.             EndScript
  583.             Occurred
  584.                 Let as = askforresponse("Do you really want to quit?", "System Information", " OK |Cancel")
  585.                 If as = 1
  586.                     Dos "C:Delete ram:t/#?"
  587.                     Dos "C:Delete ram:t/tempside/#?"
  588.                     Dos "C:Delete ram:t/secure/#?"
  589.                     Dos "C:Delete ram:t/copier/#?"
  590.                     Dos "c:Assign remove Tempside:"
  591.                     Dos "c:Assign dismount Tempside:"
  592.                     Dos "c:Assign remove copier:"
  593.                     Dos "c:Assign dismount copier:"
  594.                     Dos "c:Assign remove Secure:"
  595.                     Dos "c:Assign dismount Secure:"
  596.                     Dos "C:Delete ram:t/secure"
  597.                     Dos "C:Delete ram:t/tempside"
  598.                     Dos "C:Delete ram:t/copier"
  599.                     FlushAll
  600.                     Quit
  601.                 ElseIf as = 2
  602.                     ExitScript
  603.                 EndIf    
  604.             EndScript
  605.         EndObj
  606.         AreaButton "btn_subdirs"
  607.             Definition
  608.                 Origin 2000,2000
  609.                 ButtonFlags BUTTONTOGGLES ON 
  610.                 Highlight NONE 
  611.                 Size 23,14
  612.             EndScript
  613.         EndObj
  614.         AreaButton "btn_sort"
  615.             Definition
  616.                 Origin 2000,253
  617.                 ButtonFlags ON 
  618.                 Highlight NONE 
  619.                 Size 68,13
  620.             EndScript
  621.         EndObj
  622.         List "Document_1"
  623.             Definition
  624.                 ListDocument "dateien"
  625.                 Origin 2000,2000
  626.                 Size 330,160
  627.             EndScript
  628.         EndObj
  629.         TextField "schublade"
  630.             Definition
  631.                 InitialText ""
  632.                 Origin 14,93
  633.                 Size 560,22
  634.                 Border DOUBLEBEVEL 
  635.                 Justification CENTER 
  636.                 MaxFieldLength 256
  637.                 Font "topaz",8
  638.             EndScript
  639.             OnRelease
  640.                 WorkWithDocument "Dateien"
  641.                 Let neuerpfad = textfrom("schublade")
  642.                 Do "--00set"
  643.                 Do "Dateienliste"
  644.             EndScript
  645.         EndObj
  646.         TextField "datei"
  647.             Definition
  648.                 InitialText ""
  649.                 Origin 14,143
  650.                 Size 560,20
  651.                 Border DOUBLEBEVEL 
  652.                 Justification CENTER 
  653.                 MaxFieldLength 256
  654.                 Font "topaz",8
  655.             EndScript
  656.         EndObj
  657.         TextField "datei2"
  658.             Definition
  659.                 InitialText ""
  660.                 Origin 2000,2000
  661.                 Size 560,20
  662.                 Border DOUBLEBEVEL 
  663.                 Justification CENTER 
  664.                 MaxFieldLength 256
  665.                 Font "topaz",8
  666.             EndScript
  667.         EndObj
  668.         TextField "Field_Status"
  669.             Definition
  670.                 InitialText "Ready..."
  671.                 Origin 14,21
  672.                 Size 560,20
  673.                 Border DOUBLEBEVEL 
  674.                 Justification CENTER 
  675.                 MaxFieldLength 256
  676.                 Font "topaz",8
  677.             EndScript
  678.         EndObj
  679.         TextField "CN%"
  680.             Definition
  681.                 InitialText "75"
  682.                 Origin 200,53
  683.                 Size 30,14
  684.                 Border DOUBLEBEVEL
  685.                 LABEL "%",RIGHT 
  686.                 Justification CENTER 
  687.                 MaxFieldLength 3
  688.                 Font "topaz",8
  689.             EndScript
  690.         EndObj
  691.         TextField "CNS"
  692.             Definition
  693.                 InitialText "0"
  694.                 Origin 260,53
  695.                 Size 30,14
  696.                 Border DOUBLEBEVEL
  697.                 LABEL "S",RIGHT 
  698.                 Justification CENTER 
  699.                 MaxFieldLength 3
  700.                 Font "topaz",8
  701.             EndScript
  702.         EndObj
  703.         AreaButton "Check CN"
  704.             Definition
  705.                 Origin 140,51
  706.                 Border SCHECK ,2,1
  707.                 LABEL ".org",BELOW
  708.                 ButtonFlags BUTTONTOGGLES ON 
  709.                 Size 23,13
  710.             EndScript
  711.             OnClick
  712.                 If ObjectState ("Check CN") = true
  713.                     SetObjectState "Check CN2",false
  714.                 EndIf
  715.             EndScript
  716.         EndObj
  717.         AreaButton "Check CN2"
  718.             Definition
  719.                 Origin 170,51
  720.                 Border SCHECK ,2,1
  721.                 LABEL ".jpg",BELOW
  722.                 ButtonFlags BUTTONTOGGLES ON 
  723.                 Size 23,13
  724.             EndScript
  725.             OnClick
  726.                 If ObjectState ("Check CN2") = true
  727.                     SetObjectState "Check CN",false
  728.                 EndIf
  729.                 Let Key1=" %n"
  730.                 Let Key2=".jpg"
  731.             EndScript
  732.         EndObj
  733.         AreaButton "AOTOC2"
  734.             Definition
  735.                 Origin 11,51
  736.                 Border BEVEL 
  737.                 Text "Convert"
  738.                 Font "topaz",11
  739.                 Size 120,20
  740.             EndScript
  741.             OnClick
  742.                 SetFileRequestPattern "#?"
  743.                 SetFileRequestMode REGULARMODE ,DRAWERSONLY 
  744.                 If textfrom("schublade") = ""
  745.                     SetText "Schublade","SYS:"
  746.                     SetCurrentDirectory textfrom("schublade")
  747.                 EndIf
  748.                 Let tron = textfrom("schublade")
  749.                 Let err = askforresponse("First choose the path for the pictures"||char(10)||"which should be converted!", "JPEGTOOL Guide Info", " OK ")
  750.                 Let newfile=askforfilename(tron,"Choose picture path...",250,100,300,300)
  751.                 Let err = askforresponse("Now select the path where the pictures"||char(10)||"should be saved!", "JPEGTOOL Guide Info", " OK ")
  752.                 Let newfile2=askforfilename(tron,"Choose Save path...",250,100,300,300)
  753.                 If newfile<>nothing
  754.                     If file = oldfile
  755.                         SetText "Schublade",newfile
  756.                         Do "dirs"
  757.                         Do "dirs2"
  758.                         SetCurrentDirectory textfrom("schublade")
  759.                         WorkWithDocument "dateien"
  760.                         Do "dateienliste"
  761.                         IfError
  762.                             Let err = askforresponse("Error: Not a picture or missing datatype...", "JPEGTOOL Guide Info", " OK ")
  763.                             ExitScript
  764.                         EndIf
  765.                     EndIf
  766.                 Else
  767.                     Let err = askforresponse("*** USER ABORT ***", "JPEGTOOL Guide Info", " OK ")
  768.                     ExitScript
  769.                 EndIf
  770.                 Let tron = textfrom("schublade")
  771.                 Let checkfile = askforresponse("Convert JPEG Pictures"||char(10)||"from: "||tron||" to "||newfile2||" ?", "JPEGTOOL Guide Info", "OK|CANCEL")
  772.                 If checkfile = 1
  773.                     Do "dizzer"
  774.                 Else
  775.                     ExitScript
  776.                 EndIf
  777.                 WorkWithDocument "diz"
  778.                 SetFileRequestPattern "#?"
  779.                 SetFileRequestMode SAVEFILEMODE ,REJECTICONS 
  780.                 IfError
  781.                     Let err = askforresponse("Cancel or Error saving file...", "JPEGTOOL Guide Info", " OK ")
  782.                 EndIf
  783.             EndScript
  784.         EndObj
  785.         AreaButton "stat1"
  786.             Definition
  787.                 Origin 238,72
  788.                 Text "- PATH -"
  789.                 Font "topaz",11
  790.                 Style SHADOW ,1,2
  791.                 TextColors 2,0,JAM1 
  792.                 Highlight NONE 
  793.                 Size 120,23
  794.             EndScript
  795.         EndObj
  796.         AreaButton "g20"
  797.             Definition
  798.                 Origin 132,173
  799.                 Border BEVEL 
  800.                 Highlight NONE 
  801.                 Size 324,73
  802.             EndScript
  803.         EndObj
  804.         TextField "tline"
  805.             Definition
  806.                 InitialText ""
  807.                 Origin 119,298
  808.                 Size 516,8
  809.                 MaxFieldLength 256
  810.                 Font "topaz",8
  811.             EndScript
  812.         EndObj
  813.         TextField "fsize"
  814.             Definition
  815.                 InitialText "0"
  816.                 Origin 2000,2000
  817.                 Size 75,8
  818.                 Border DOUBLEBEVEL 
  819.                 Justification CENTER 
  820.                 MaxFieldLength 60
  821.                 Font "topaz",8
  822.                 TextColors 1,3
  823.                 AltTextColors 1,3
  824.             EndScript
  825.         EndObj
  826.         TextField "00"
  827.             Definition
  828.                 InitialText ""
  829.                 Origin 392,46
  830.                 Size 1,1
  831.                 FieldFlags DISABLE 
  832.                 MaxFieldLength 256
  833.                 Font "topaz",8
  834.             EndScript
  835.         EndObj
  836.         IntegerField "Home"
  837.             Definition
  838.                 Limits 0,999999999
  839.                 InitialInteger 0
  840.                 Origin 2000,321
  841.                 Size 31,5
  842.                 Justification CENTER 
  843.                 MaxFieldLength 256
  844.             EndScript
  845.         EndObj
  846.         IntegerField "NLT"
  847.             Definition
  848.                 Limits 0,99999999
  849.                 InitialInteger 0
  850.                 Origin 2000,520
  851.                 Size 27,8
  852.                 Justification CENTER 
  853.                 MaxFieldLength 256
  854.             EndScript
  855.         EndObj
  856.         IntegerField "LT"
  857.             Definition
  858.                 Limits 0,999999999
  859.                 InitialInteger 0
  860.                 Origin 2000,521
  861.                 Size 16,9
  862.                 Justification CENTER 
  863.                 MaxFieldLength 256
  864.             EndScript
  865.         EndObj
  866.         IntegerField "col"
  867.             Definition
  868.                 Limits 0,999999999
  869.                 InitialInteger 0
  870.                 Origin 2000,520
  871.                 Size 21,9
  872.                 Justification CENTER 
  873.                 MaxFieldLength 256
  874.             EndScript
  875.         EndObj
  876.         Memo "Docu2"
  877.             Definition
  878.                 MemoDocument "Docu2"
  879.                 Origin 2000,241
  880.                 Size 501,42
  881.             EndScript
  882.         EndObj
  883.         Memo "Docu3"
  884.             Definition
  885.                 MemoDocument "Docu3"
  886.                 Origin 2000,241
  887.                 Size 501,42
  888.             EndScript
  889.         EndObj
  890.         TextField "F1"
  891.             Definition
  892.                 InitialText ""
  893.                 Origin 2000,245
  894.                 Size 254,8
  895.                 MaxFieldLength 256
  896.             EndScript
  897.         EndObj
  898.         TextField "k1"
  899.             Definition
  900.                 InitialText ""
  901.                 Origin 2000,273
  902.                 Size 81,13
  903.                 MaxFieldLength 256
  904.             EndScript
  905.         EndObj
  906.         TextField "k2"
  907.             Definition
  908.                 InitialText ""
  909.                 Origin 2000,251
  910.                 Size 86,11
  911.                 MaxFieldLength 256
  912.             EndScript
  913.         EndObj
  914.         AreaButton "B7"
  915.             Definition
  916.                 Origin 2000,246
  917.                 Border CHECK 
  918.                 Size 19,14
  919.             EndScript
  920.         EndObj
  921.         AreaButton "B8"
  922.             Definition
  923.                 Origin 2000,247
  924.                 Border CHECK 
  925.                 Size 25,17
  926.             EndScript
  927.         EndObj
  928.         AreaButton "B9"
  929.             Definition
  930.                 Origin 2000,247
  931.                 Border CHECK 
  932.                 Size 40,27
  933.             EndScript
  934.         EndObj
  935.         TextField "z1"
  936.             Definition
  937.                 InitialText ""
  938.                 Origin 2000,229
  939.                 Size 65,14
  940.                 Border DOUBLEBEVEL 
  941.                 MaxFieldLength 256
  942.             EndScript
  943.         EndObj
  944.         TextField "z2"
  945.             Definition
  946.                 InitialText ""
  947.                 Origin 2000,279
  948.                 Size 81,18
  949.                 Border DOUBLEBEVEL 
  950.                 MaxFieldLength 256
  951.             EndScript
  952.         EndObj
  953.         List "D2"
  954.             Definition
  955.                 ListDocument "D2"
  956.                 Origin 2000,252
  957.                 Size 90,145
  958.             EndScript
  959.         EndObj
  960.         TextField "Fd1"
  961.             Definition
  962.                 InitialText ""
  963.                 Origin 2000,269
  964.                 Size 87,18
  965.                 Border DOUBLEBEVEL 
  966.                 MaxFieldLength 256
  967.             EndScript
  968.         EndObj
  969.         TextField "Fd2"
  970.             Definition
  971.                 InitialText ""
  972.                 Origin 2000,245
  973.                 Size 91,18
  974.                 Border DOUBLEBEVEL 
  975.                 MaxFieldLength 256
  976.             EndScript
  977.         EndObj
  978.         Memo "D5"
  979.             Definition
  980.                 MemoDocument "D5"
  981.                 Origin 2000,245
  982.                 Size 354,40
  983.             EndScript
  984.         EndObj
  985.         AreaButton "snam"
  986.             Definition
  987.                 Origin 2000,273
  988.                 Border CHECK 
  989.                 Size 22,15
  990.             EndScript
  991.         EndObj
  992.         Memo "uuu"
  993.             Definition
  994.                 MemoDocument "uuu"
  995.                 Origin 2000,2000
  996.                 Size 320,245
  997.             EndScript
  998.         EndObj
  999.         AreaButton "stoppp"
  1000.             Definition
  1001.                 Origin 495,51
  1002.                 Border BEVEL 
  1003.                 ButtonFlags BUTTONTOGGLES 
  1004.                 Text "ABORT"
  1005.                 Font "topaz",11
  1006.                 Size 82,20
  1007.             EndScript
  1008.         EndObj
  1009.         TextField "Balk"
  1010.             Definition
  1011.                 InitialText ""
  1012.                 Origin 186,194
  1013.                 Size 204,29
  1014.                 Border DOUBLEBEVEL 
  1015.                 Justification CENTER 
  1016.                 MaxFieldLength 256
  1017.                 TextColors 2,0
  1018.                 AltTextColors 2,54
  1019.             EndScript
  1020.         EndObj
  1021.         TextField "Balk2"
  1022.             Definition
  1023.                 InitialText "100 %"
  1024.                 Origin 393,192
  1025.                 Size 60,33
  1026.                 Justification CENTER 
  1027.                 MaxFieldLength 32
  1028.                 Font "topaz",11
  1029.                 TextColors 1,0
  1030.                 AltTextColors 1,0
  1031.             EndScript
  1032.         EndObj
  1033.         AreaButton "Button_2"
  1034.             Definition
  1035.                 Origin 120,192
  1036.                 Text "0 %"
  1037.                 Font "topaz",11
  1038.                 Highlight NONE 
  1039.                 Size 62,33
  1040.             EndScript
  1041.         EndObj
  1042.         TextMenu "a1"
  1043.             Definition
  1044.                 AttachTo OBJECT ,"ABout5"
  1045.                 Text "   Jochen Grus   "
  1046.                 Font "topaz",11
  1047.             EndScript
  1048.         EndObj
  1049.         TextMenu "a2"
  1050.             Definition
  1051.                 AttachTo OBJECT ,"ABout5"
  1052.                 Text "        &   "
  1053.                 Font "topaz",11
  1054.             EndScript
  1055.         EndObj
  1056.         TextMenu "a3"
  1057.             Definition
  1058.                 AttachTo OBJECT ,"ABout5"
  1059.                 Text "  Martin Gentile"
  1060.                 Font "topaz",11
  1061.             EndScript
  1062.         EndObj
  1063.         TextField "Z0"
  1064.             Definition
  1065.                 InitialText ""
  1066.                 Origin 2000,2000
  1067.                 Size 62,11
  1068.                 Border DOUBLEBEVEL 
  1069.                 Justification CENTER 
  1070.                 MaxFieldLength 32
  1071.                 Font "topaz",11
  1072.                 TextColors 1,0
  1073.                 AltTextColors 1,54
  1074.             EndScript
  1075.         EndObj
  1076.         Memo "dirs"
  1077.             Definition
  1078.                 MemoDocument "dirs"
  1079.                 ScrollBars RIGHT 
  1080.                 Origin 2000,2000
  1081.                 Size 519,40
  1082.                 Border DOUBLEBEVEL 
  1083.             EndScript
  1084.         EndObj
  1085.         AreaButton "stat2"
  1086.             Definition
  1087.                 Origin 238,122
  1088.                 Text "- FILE -"
  1089.                 Font "topaz",11
  1090.                 Style SHADOW ,1,2
  1091.                 TextColors 2,0,JAM1 
  1092.                 Highlight NONE 
  1093.                 Size 120,23
  1094.             EndScript
  1095.         EndObj
  1096.         Memo "cool1"
  1097.             Definition
  1098.                 MemoDocument "cool1"
  1099.                 InputStyle LOCKEDOUT 
  1100.                 Origin 465,179
  1101.                 Size 124,56
  1102.                 Font "topaz",11
  1103.                 TextColors 1,0,JAM1 
  1104.                 Style ITALIC ,2,1
  1105.             EndScript
  1106.         EndObj
  1107.         Memo "cool2"
  1108.             Definition
  1109.                 MemoDocument "cool2"
  1110.                 InputStyle LOCKEDOUT 
  1111.                 Origin 8,179
  1112.                 Size 124,56
  1113.                 Font "topaz",11
  1114.                 TextColors 1,0,JAM1 
  1115.                 Style ITALIC ,2,1
  1116.             EndScript
  1117.         EndObj
  1118.         IntervalTimer "Timer_1"
  1119.             Definition
  1120.                 Duration 0,7,4
  1121.             EndScript
  1122.             Occurred
  1123.                 Do "dirs5"
  1124.                 Do "dirs8"
  1125.                 
  1126.             EndScript
  1127.         EndObj
  1128.         IntervalTimer "Timer_2"
  1129.             Definition
  1130.                 Duration 0,6,4
  1131.             EndScript
  1132.             Occurred
  1133.                 Do "dirs7"
  1134.                 Do "dirs6"
  1135.                 
  1136.             EndScript
  1137.         EndObj
  1138.         AreaButton "Copy_of_stat2"
  1139.             Definition
  1140.                 Origin 238,172
  1141.                 Text "- STATUS -"
  1142.                 Font "topaz",11
  1143.                 Style SHADOW ,1,2
  1144.                 TextColors 2,0,JAM1 
  1145.                 Highlight NONE 
  1146.                 Size 120,23
  1147.             EndScript
  1148.         EndObj
  1149.     EndObj
  1150. EndObj
  1151.